Celestin Apprentice 7/Apprentice-Release7.iso/Environments/Small Eiffel 0.4.8/lib_show/cecil/example3/c_prog.c

C/C++ Source or Header | 1997-04-13 | 362 b | 19 lines | [TEXT/CWIE]

#include <stdio.h>
#include "eiffel.h"

c_prog (void *animals) {
  int i;
  void* eiffel_string;
  char* c_string;

  for (i=array_of_animal_lower(animals);
       i <= array_of_animal_upper(animals);
       i++) {
    eiffel_string = cry(array_of_animal_item(animals,i));
    c_string = string_to_external(eiffel_string);
    printf("%s\n",c_string);
  }
}